home *** CD-ROM | disk | FTP | other *** search
- ( -------------------------------------------------
- ( FILE: ui.rpl
- ( DESCRIPTION: RPL interface to GUI
- ( VERSION: 3.0
- ( DATE: 39-Dec-94
- ( -------------------------------------------------
- ( Copyright © 1994 Realsoft. All rights reserved
- ( -------------------------------------------------
-
- ?& UI.RPL NOT ?IF
- 37 CONSTANT UI.RPL
-
- ( Tags for gadgets
-
- 0 CONSTANT UI_Done
- 1 CONSTANT UI_Disabled
- 2 CONSTANT UICB_Checked
- 3 CONSTANT UIST_String
- 4 CONSTANT UIST_MaxChars
- 5 CONSTANT UITX_Text
- 6 CONSTANT UITX_Border
- 7 CONSTANT UISL_Min
- 8 CONSTANT UISL_Max
- 9 CONSTANT UISL_Level
- 10 CONSTANT UIMX_Labels
- 11 CONSTANT UIMX_Active
-
- ( Window callback values
- 0 CONSTANT UIWM_Move ( mouse move
- 1 CONSTANT UIWM_LMBDown ( Left mouse button down
- 2 CONSTANT UIWM_LMBUp ( Left mouse button up
- 3 CONSTANT UIWM_Close ( close clicked
- 4 CONSTANT UIWM_Selected ( selected objects and/or current working level changed
- 5 CONSTANT UIWM_Refresh ( user has modified objects, refresh window
-
- ?& NULL NOT ?IF
- 0 CONSTANT NULL
- 0 CONSTANT FALSE
- 1 CONSTANT TRUE
- ?ENDIF
-
- ( Define new data type 'pointer array'. This is makes it easier to set up
- ( string pointer array required by 'UI_MX' gadget.
-
- : PARRAY ( iSize )
- <BUILDS 4 * ALLOT DOES>
- ;
-
- : PSTORE ( sString iIndex aArray)
- 4 * + STORE
- ;
-
- : PFETCH ( iIndex aArray)
- 4 * + FETCH
- ;
-
- : PINIT ( 0 sStringN ... string2 sTring1 aArray )
- PARAM
- VARIABLE aArray
- ENDPARAM
- VARIABLE iIndex
-
- 0 iIndex STORE
- BEGIN
- DUP
- WHILE
- aArray FETCH iIndex FETCH PSTORE
- 1 iIndex FETCH + iIndex STORE
- REPEAT
- DROP
- 0 aArray FETCH iIndex FETCH PSTORE
- ;
-
- ?ENDIF ( UI.RPL
-
-